home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL50.PRO < prev    next >
Encoding:
Text File  |  1979-12-31  |  469 b   |  23 lines
  1. /* program 50*/
  2. trace
  3. predicates
  4.    person(integer,symbol)
  5.    rand_int_1_5(integer)
  6.    rand_person(integer)
  7.  goal
  8.    clearwindow,
  9.    rand_person(3).
  10. clauses
  11.    person(1,fred).
  12.    person(2,tom).
  13.    person(3,mary).
  14.    person(4,dick).
  15.    person(5,goerge).
  16.    rand_int_1_5(X) :- random(Y),X=Y*5+1.
  17.    rand_person(0):-!.
  18.    rand_person(Count):-
  19.       rand_int_1_5(N),person(N,Name),nl,nl,write(Name),nl,
  20.       Newcount=Count-1,rand_person(NewCount).
  21.  
  22.  
  23.